Option Explicit
Sub D_Sample042()
    Dim myWb       As Workbook
    Dim myFileName As String
    myFileName = ThisWorkbook.Path & "\temp4.xls"        'wɮצW
    Set myWb = Workbooks(1)                           'Nï
    'ǳƨ즹
    myWb.SaveCopyAs Filename:=myFileName
    Set myWb = Nothing                                       '
End Sub

